]> permondes.de Git - Analog_Engine.git/blobdiff - Radioactive Decay.AESL
Restructured Documents, integration constant, removed SPEED
[Analog_Engine.git] / Radioactive Decay.AESL
diff --git a/Radioactive Decay.AESL b/Radioactive Decay.AESL
new file mode 100644 (file)
index 0000000..34b3acf
--- /dev/null
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES Coefficient 2
+REQUIRES Integrator 1
+REQUIRES Inverter 1
+
+DATA DIVISION
+OUTPUT OUT.X N
+ALIAS COEFFICIENT.1 InitialValue
+ALIAS COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> InitialValue -> N0
+N’, IC:N0 -> Integrator.1 -> -N
+-N -> Decay -> -lambda*N=N’
+-N -> Inverter.1 -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms